home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / Service / Future / READOUT < prev    next >
Text File  |  1999-12-13  |  2KB  |  64 lines
  1. setenv .apcdpic1 21
  2. setenv .apcdpic2 22
  3. setenv .val2 "Lese Config...."
  4. gui vorher:sub2.gc
  5. gui vorher:change.gc
  6. ;Start Gauge Update
  7. eval `getenv .val` + $updater >env:tempevil
  8. setenv .val $tempevil
  9. Gui vorher:sub.gc
  10. ;End Gauge Update
  11.  
  12. list lists/#? lformat=%N >env:files ;Files= Alle Files in lists
  13. copy lists/#? to env: quiet
  14. set x 1
  15.  
  16. lab anfang ;repeat ;VarX= Files in lists, einzeln!
  17. chopline files var$x
  18. ;=
  19. if `getenv var$x` eq "EOF"
  20. delete >nil: env:var$x ;Letzte Variable löschen
  21. setenv anzahl `eval $x-1`
  22. skip breaker ;Springt aus der Schleife
  23. endif
  24. ;=
  25. set x `eval $x+1`
  26. ;Start Gauge Update
  27. eval `getenv .val` + $updater >env:tempevil
  28. setenv .val $tempevil
  29. Gui vorher:sub.gc
  30. ;End Gauge Update
  31.  
  32. skip back anfang ;until NOT EOF
  33. lab breaker
  34. set x 0 ;Resetten der Variablen
  35. set y 1
  36.  
  37. lab for;eva Prinzip
  38. ;for x=1 to $anzahl
  39. if $x eq $anzahl ;Keine Var$x mehr übrig
  40. skip next
  41. endif
  42. set x `eval $x +1` 
  43. set y 1
  44. ;while `getenv var$x.$y` not eof
  45. lab repeat
  46. chopline `getenv var$x` var$x.$y ;Punkt muß sein, falls x/y > 9
  47. ;Start Gauge Update
  48. eval `getenv .val` + $updater >env:tempevil
  49. setenv .val $tempevil
  50. Gui vorher:sub.gc
  51. ;End Gauge Update
  52.  
  53. if `getenv var$x.$y` eq "EOF" ;Kein Tool mehr zum AusLesen
  54. delete >nil: env:var$x.$y ;Letzte Variable löschen
  55. setenv  anzahltools$x `eval $y - 1` ;AnzahlTools$X = Nr. of Var$x.
  56. skip until ;Springt aus der Schleife
  57. endif
  58. set y `eval $y + 1` ;Zähler um eins erhöhen
  59. skip back repeat
  60. lab until
  61. skip back for
  62. lab next
  63. setenv .val 0
  64. gui vorher:sub.gc ;Gauge löschen